home *** CD-ROM | disk | FTP | other *** search
/ Dr. Windows 3 / dr win3.zip / dr win3 / UTILITY1 / MSWLGO35.ZIP / LOGOLIB / TUTOR < prev    next >
Text File  |  1993-08-22  |  4KB  |  116 lines
  1. to boxes
  2. groupboxcreate "main [group1] 20 50 70 50
  3. radiobuttoncreate "main [group1] [Radio1] [Radio Button] 30 60 50 10
  4. checkboxcreate "main [group1] [check1] [Check Box] 30 80 50 10
  5. scrollbarcreate "main [Scroll1] 20 30 70 10 [Print "Scrolled]
  6. buttoncreate "main [Button1] [Button to be Push] 20 10 50 10 [Print "Push]
  7. comboboxcreate "main [combo1] 20 110 50 30
  8. listboxcreate "main [list1] 20 150 70 20
  9. staticcreate "main [static1] [This is a static box] 20 180 140 10
  10. end
  11.  
  12. to tmoduleend
  13. windowdelete "mod
  14. tutor
  15. end
  16.  
  17. to tmodulepen
  18. windowdelete "main
  19. windowcreate "root "mod [Pen Lesson] 0 0 150 150
  20. tmodulesetup
  21. end
  22.  
  23. to tmodulesetup
  24. buttoncreate "mod [bmodprev] [Previous] 90 95 45 10 [tmodprev]
  25. staticcreate "mod [smod] [Stub\
  26. abc] 15 15 120 65
  27. buttoncreate "mod [bmodnext] [Next] 15 95 45 10 [tmodnext]
  28. buttoncreate "mod "bmodend "End 55 125 40 10 [tmoduleend]
  29. end
  30.  
  31. to tmoduleturtle
  32. windowdelete "main
  33. windowcreate "root "mod [Turtle Lesson] 0 0 150 150
  34. tmodulesetup
  35. end
  36.  
  37. to tstart
  38. show listboxgetselect "list1
  39. if equalp "The_Pen listboxgetselect  "list1 [tmodulepen stop]
  40. if equalp "The_Turtle listboxgetselect "list1 [tmoduleturtle stop]
  41. end
  42.  
  43. to tutor
  44. windowcreate "root "main "Tutor 0 0 150 150
  45. tutorsetup
  46. tutorinit
  47. end
  48.  
  49. to tutorinit
  50. listboxaddstring "list1 [The_Pen]
  51. listboxaddstring "list1 [The_Turtle]
  52. end
  53.  
  54. to tutorsetup
  55. buttoncreate "main [bstart] [Start] 105 55 40 10 [tstart]
  56. listboxcreate "main [list1] 20 55 70 60
  57. staticcreate "main [static1] [Welcome to the Logo Tutor] 15 5 125 10
  58. staticcreate "main [static2] [Choose Subject] 20 40 70 10
  59. buttoncreate "main [bend] [End] 60 125 50 10 [windowdelete "main]
  60. end
  61.  
  62. Make "arg "tmodulesetup
  63. Make "backupselect [buttoncreate "mod "bmodend "End [tmoduleend] [101 -245 80 20]]
  64. Make "boxisselected "false
  65. Make "edgeisselected "false
  66. Make "groupisselected "false
  67. Make "groupname [group1]
  68. Make "h 20
  69. Make "h25 15
  70. Make "h75 18.75
  71. Make "hb 20
  72. Make "hhh 18
  73. Make "kind "staticcreate
  74. Make "main_x 150
  75. Make "main_y 150
  76. Make "master [[buttoncreate "mod [bmodprev] [Previous] [tmodprev] [180 -190 90 20]] [staticcreate "mod [smod] [Stub\nabc] [30 -30 240 130]] [buttoncreate "mod [bmodnext] [Next] [tmodnext] [30 -190 90 20]] [buttoncreate "mod "bmodend "End [tmoduleend] [110 -250 80 20]]]
  77. Make "master_group []
  78. Make "mastermodule "tmodulesetup
  79. Make "mastername "mod
  80. Make "mousedn "false
  81. Make "name []
  82. Make "posd [109 -246]
  83. Make "posm [109 -246]
  84. Make "select [buttoncreate "mod "bmodend "End [tmoduleend] [109 -246 80 20]]
  85. Make "slowmode "false
  86. Make "snapbox [180 -190 90 20]
  87. Make "tempboxs [[buttoncreate "mod [bmodprev] [Previous] [tmodprev] [180 -190 90 20]] [staticcreate "mod [smod] [Stub\nabc] [30 -30 240 130]] [buttoncreate "mod [bmodnext] [Next] [tmodnext] [30 -190 90 20]] [buttoncreate "mod "bmodend "End [tmoduleend] [110 -250 80 20]]]
  88. Make "the_cb [tmodprev]
  89. Make "the_grid 10
  90. Make "the_group "N/A
  91. Make "the_last [-50 0 50 50]
  92. Make "the_name [bmodprev]
  93. Make "the_scale 2
  94. Make "the_title [Previous]
  95. Make "thebox [buttoncreate "mod [bmodprev] [Previous] [tmodprev] [180 -190 90 20]]
  96. Make "title []
  97. Make "trec [buttoncreate "mod "bmodend "End 55 125 40 10 [tmoduleend]]
  98. Make "w 80
  99. Make "w25 35
  100. Make "w75 105
  101. Make "wb 90
  102. Make "whichone 1
  103. Make "wholeisselected "false
  104. Make "windowisselected "true
  105. Make "www 79
  106. Make "x 110
  107. Make "xb 180
  108. Make "xp 101
  109. Make "xrec []
  110. Make "xxx 180
  111. Make "y -250
  112. Make "yb -190
  113. Make "yp -245
  114. Make "yrec [tmoduleend]
  115. Make "yyy -190
  116.